home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / Pow_ieee.ass < prev    next >
Encoding:
Text File  |  1999-06-23  |  389 b   |  27 lines
  1. ; fp0:=fp0^fp1
  2.     fpu    1
  3.  
  4.     xdef    _Pow
  5.  
  6. _Pow    move.l    fp1,d2
  7.     move.l    fp1+4,d3
  8.     tst.l    d2
  9.     bne.s    .next
  10.     bra.s    .cont
  11. .next    tst.l    d3
  12.     beq.s    .retone
  13. .cont    move.l    fp0,d0
  14.     move.l    fp0+4,d1
  15.     movea.l    _MathIEEEDoubTransBase,a6
  16.     jsr    (-90,a6)        ; IEEEDPPow
  17.     move.l    d0,fp0
  18.     move.l    d1,fp0+4
  19.     rts
  20. .retone    move.l    #$3ff00000,fp0    ; 1.0
  21.     move.l    #$00000000,fp0+4
  22.     rts
  23.  
  24.     xref    fp0
  25.     xref    fp1
  26.     xref    _MathIEEEDoubTransBase
  27.